home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / nut.arc / NUT.BAS
Encoding:
BASIC Source File  |  1988-09-02  |  5.0 KB  |  74 lines
  1. 10 CLS:WIDTH 80:KEY OFF
  2. 20 ' Disable CNTRL/BRK Key
  3. 30 DEF SEG=0:POKE 108,83:POKE 109,255:POKE 110,0:POKE 111,240
  4. 40 FOR T=1 TO 100:NEXT T
  5. 50 CLS
  6. 60 LOCATE 1,22:PRINT" Overture"
  7. 70 PLAY"MF T175 O2 C4P4F4P50E8D4A4G4C4F4E4D4C4E2D4"
  8. 80 PLAY"C4P4F4P40E8D4A4G4 O3 C4 O2 A4G4F4E4D4E4C4"
  9. 90 PLAY"O1 G8A8B8 O2 C4P4F4P40E8D4A4G4C4F4E4D4C4E2D4"
  10. 100 PLAY"P5C4P4F4P40E8D4A4G4 O3 C4 O2 A4G4F4E4D4E4C4P5"
  11. 110 FOR T=1 TO 1000:NEXT T
  12. 120 LOCATE 3,22:PRINT" March "
  13. 130 PLAY"T200 MF O2 G4G8G8G8A4A4B4G4A2G4G8G8G8A4A4B4G4A4.A8"
  14. 140 PLAY"O3 F8.A16F8.E16D8.C16 O2 B8.G16 O3 E8.F16E8.D16C8. O2 B16A8."
  15. 150 PLAY"G16A8. O3 C16 O2 B8.A16G#8. O3 D16C8. O2 B16A8. O3 E16F8.E16D8.C16G4G4"
  16. 160 PLAY"O2 G4G16G16G16A4A4B4G4A2G4G16G16G16A4A4B4G4A4."
  17. 170 PLAY"P50F8.G16F8.E16D8.C16 O1 B8. O2 D16G8.A16G8.F16E8.D16C8.E16A8.G16A8.A16B8.A16G8.B16 O3 C8. O2 B16A8.B16 O3 C4C4"
  18. 180 FOR T=1 TO 1000:NEXT T
  19. 190 LOCATE 5,22:PRINT" Dance of The Sugar Plum Fairy"
  20. 200 PLAY"t220 MF O1 E4 O2 E4 O1 E4 O2 F#4 O1 E4 O2 G4 O1 E4 O2 D#4"
  21. 210 PLAY"O1 E4 O2 E4 O1 E4 O2 F#4 O1 E4 O2 G4 O1 E4 O2 D#4 O1 E4 O2 G8E8G4F#4D#4E4D8D8D4C#8C#8C#4C8C8C4 O1 B8 O2 E8C8E8 O1 B4 O1E16D16C16 O0 B16A#4"
  22. 220 PLAY"O2 G8E8G4F#4C4 O1 B4 O2 G8G8G4F#8F#8F#4E8E8E4D#8F#8E8F#8D#8 O1B16A16G16F#16E4"
  23. 230 PLAY"O2 G8E8G4F#4D#4E4D8D8D4C#8C#8C#4C8C8C4 O1 B8 O2 E8C8E8 O1 B4G16F#16E16D16C#4"
  24. 240 PLAY"O3E8C#8E4D#4 O2 G16E16D#16C16B4 O3 D8 O2 B8 O3 D4C#4 O1 A4 O3 C8 O2 A8 O3 C4 O2 B4 O1 B16C16B16A16G4 O2 D#4E4 O1 E4"
  25. 250 LOCATE 7,22:PRINT" Russian Dance"
  26. 260 FOR M=1 TO 2:PLAY"MF T250 O3 C4C8 O2 B8 O3 C4C4 O2 MS A4G4 MN F4 MS A4G4 MN G8F#8"
  27. 270 PLAY"G4G4E4D4C4E8G8D4D8G8C4C8G8 O1 B4B8 O2 G8D4D8G8E4E8G8C4C8G8D4C4D4E4":NEXT M
  28. 280 PLAY"E4E8G8D4D8G8C4 O1 A4 O2 C4G4E4E8G8D4D8G8C4C8G8E4E8G8D4D8G8C4C8G8"
  29. 290 PLAY"O1B4B8 O2 G8D4D8G8E4E8G8D4D8G8D4D8G8C4C8G8E4E8G8D4D8G8F4F8G8E4E8G8C4C8G8D4D8G8F4F8G8E4E8G8C4C8G8D6D10G10C6C10G10D6D10G10C6C10G10D6D10G10C6C10G10D6G6 O3 C4"
  30. 300 FOR T=1 TO 1000:NEXT T
  31. 310 LOCATE 9,22:PRINT" Arabian Dance"
  32. 320 PLAY"MF T250 O1 A8E8E8A8A8E8A8E8E8A8A8E8A8E8E8A8A8E8A8E8E8A8A8E8"
  33. 330 PLAY"O2 G2 O1 E8E8A8 O2 E4 O1 E8 O2 G2 O1 E8E8A8 O2 E4 O1 E8 O2 G8F8E2. O1 E8E8A8A8E8 O2 G2 O1 E8E8A8 O2 E4 O1 E8 O2 G2 O1 E8E8A8 O2 G4F4E2."
  34. 340 PLAY"O1 A8E8E8A8A8E8 O2 E2. O1 A8E8E8A8A8E8 O3 C2D4E4E2 O1 A8A8E8"
  35. 350 PLAY"O3 E4. O1 E8E8 O3 D8E4 O1 E8 O3 D4 O1 E8 O3 C2 O1 A8A8E8 O3 D2 O1 E8E8"
  36. 360 PLAY"F2G1"
  37. 370 FOR T=1 TO 1000:NEXT T
  38. 380 LOCATE 11,22:PRINT" Chinese Dance"
  39. 390 FOR T=1 TO 2:PLAY"mf t250 o3 F3E5D5C3. O2 B17 O3 C17D5P5C3. O2 A5F5F5G5G5E5E5C5C5G5G5A5A5F5F5C5P5. O3 F3E5D5C3. O2 B17 O3 C17D5P5C3. O2 A5F5F5G5G5E5E5C5C5G5G5A5A5F5F5C5":NEXT T
  40. 400 FOR T=1 TO 2:PLAY"P2 O3 E2D4E4C2D4E4F4 P3 O2 F2.A4 O3 C4 O2 C4"
  41. 410 PLAY"D5D5D#5D#5E5E5A5A5G5G5F5F5C5P4 O3 E3D5E5C3D5E5F5P5 O2 F3.A5 O3 C5 O2 C5D5D5D#5D#5E5E5A5A5G5G5F5F5C5":NEXT T
  42. 420 PLAY"O2 C5C5F5F5G5G5E5E5C5C5G5G5A5A5F5F5C5C5G5G5A5A5F5F5C5C5G5G5A5A5F5F5C5C5G5G5A5A5F5F5A5A5F5F5A5A5F5F5A5A5P4 O3 C5 O2 F5"
  43. 430 FOR T=1 TO 1000:NEXT T
  44. 440 LOCATE 13,22:PRINT" Dance of the Reed-Flutes"
  45. 450 PLAY"T175 MF O1 C4G4 O0 G4 O1 G4C4G4 O0 G4 O1 G4"
  46. 460 PLAY"O3 C8 O2 B8 O3 C8 O2 B8 O3 C4 O2 B4 O3 D4C16 O2 E16G16 O3 C16E16"
  47. 470 PLAY"O3 F8E8F8E8D8C8 O2 G8E8C2 O2 B32 O3 C32 O2 B32 O3 C32 O2 B32 O3 C32 O2 B2"
  48. 480 PLAY"O1 F4 O2 A8A8A8A8A4G4A8A8A8A8A4G4 O3 C8C8C8C8C8 O2 B8 O3 D8C8C8 O2 B8A8G8 O3 F4 O2 G4 O3 C8 O2 B8 O3 C8 O2 B8 O3 C4 O2 B4 O3 D4D16 O2 E16G16 O3 C16E2 "
  49. 490 PLAY"O1 G4 O3 F8E8F8E8D8C8 O2 G8E8C2 O3 C32 O2 B32 O3 C32 O2 B32 O1 G4"
  50. 500 PLAY"O2 A8A8A8A8A4G4A8A8A8A8A4G4 O3 C4 O2 A-4 O3 A-4 O2 G4 O3 G4C4C4"
  51. 510 FOR M=1 TO 2:PLAY"O2 C8C8E8E8E8F#8G8G8G8A8B8B8B8 O3 C8 O2 B8B8B8A8G8G8G8A8G8G8G8F#8E8E8E8F#8E8E8E8F#8E8E8E8F#8G8G8G8A8B8B8B8 O3 C8 O2 B8B8B8A8G8G8G8A8G8G8G8F#8E8E8E8F#8E8G8B8F#8":NEXT M
  52. 520 PLAY"E8E8E8F#8E8E8E8F#8E8E8E8F#8E8E8E8F#8E8G8D#8F#8E8G8D#8F#8"
  53. 530 PLAY"E8G8D#8F#8E8G8E8D8 O3 C4 O2 A-4 O3 A-4 O2 G4 O3 G4C4C4 O2 C4"
  54. 540 FOR T=1 TO 1000:NEXT T
  55. 550 LOCATE 15,22:PRINT" Waltz of the Flowers"
  56. 560 PLAY"T200 MF O1 C4G4G4C4G4G4C4G4G4C4G4G4 O2 C4E4F2F8E8E2.. O1 G4G4G4"
  57. 570 PLAY"O2 C4E4F4E4.D8G2C4P5 O1 G8A8B8 O2 C8C#8E8C#8E8D8P5"
  58. 580 PLAY"O1 B-8 O2 C8C#8D8E8G8E8G8F4P4D8E8F8G8G#8B8A8G8A8B8 O3 D8C8"
  59. 590 PLAY"O2 B8 O3 C8 O2 A8F8E2D4D-8C8 O1 B8A8G-8 O2 C4E4F2.F8E8E2."
  60. 600 PLAY"C4E4F4E4.D8G2C4P4C8D8E8F#8G8A8F#8A8G4P4F8F#8G8A8B8 O3 C8 O2 A#8 O3 C8"
  61. 610 PLAY"O2 B4P4A#8B8 O3 C#8D#8E8F#8G8D#8F#8E8G8D#8F#8E8G8E8G8E8G8E8G8D#8E8"
  62. 620 PLAY"G8A8B8 O3 C8D8"
  63. 630 FOR T=1 TO 2:PLAY"O3 E2 O2 B4 O3 D2 O2 A4 O3 C2 O2 F4B8 O3 C8 O2 B8A#8B8 O3 F2C4E2 O2 B4 O3 D2 O2 G4 O3 C8D8C8 O2 B4 O3 C4E2 O2 B4"
  64. 640 PLAY"O3 D2 O2 A4 O3 C2 O2 A4B8 O3 C8 O2 B8A#4B4 O3 F2C4F2C#4F2D4A8"
  65. 650 PLAY"O2 G8A8B8 O3 C8D8":NEXT T
  66. 660 PLAY"O2A2G4A2G4B4 O2 D8E8F8F#8G8F#8G8G#8A8B8 O3 C2 O2 G4 O3 C2 O2 G#4"
  67. 670 PLAY"B8A8G#8A8F8D8A8B8A8G#4A4B2F4B2F#4A8G8F#8G8E8C8G8A8G8F#4G4A-2E-4"
  68. 680 PLAY"F#2D4G4D4E4C4F4C4F#4E-4G4E4A-4F4A4F#4B-4G4B4G4 O3 C4 O2 B8 O3 C8"
  69. 690 PLAY"O2 B8A4 O3 C4 O2 B8 O3 C8 O2 B8A4 O3 C4 O2 B8 O3 C8 O2 B8A4 O3 C4"
  70. 700 PLAY"MF O2 B8 O3 C8 O2 B8A4P4C4E4F4G4C8C4E4G4 O3 C4"
  71. 710 FOR T=1 TO 1000:NEXT T
  72. 720 LOCATE 17,10:PRINT" For your entertainment - from DUKE KING"
  73. 730 SYSTEM
  74.